home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / setsprit.bas < prev    next >
BASIC Source File  |  1998-04-07  |  144b  |  11 lines
  1. ufospr = LoadSprite("ufo")
  2. SetSprite ufospr To 100,100
  3.  
  4. For t = 1 To 5
  5. SetSprite ufospr Flipped
  6. Sleep 2
  7. SetSprite ufospr Normal
  8. Sleep 2
  9. Next t
  10.  
  11.